home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / STORY.TCL < prev    next >
Encoding:
Text File  |  2002-07-25  |  8.7 KB  |  280 lines
  1. #-------------------------------------------------------------------------------
  2. #   chapter00/part01/story.tcl
  3. #-------------------------------------------------------------------------------
  4. #
  5. #   sprecher ist jetzt drin, ganze fahrt is nu 340 frames kⁿrzer !!! (13.6 sek)
  6. #   Achtung! : wieder 50frames draufgelegt (2sek)
  7. #
  8. #-------------------------------------------------------------------------------
  9. part part01 {
  10.  
  11.     on part_activated {
  12.         resetplayerat -7740 -160 -5890
  13.         maennelcanfly false
  14. #        daytime 2 45
  15.         daytime 3 15
  16.         wind 0.12
  17.  
  18.         loadencounter intro.n
  19.         startpart
  20.         setplayerpos -7715 -124 -5939 160
  21.  
  22.         playanimation playerlighthouse_cinedummy1
  23.         playsound  book:music/native44a.wav
  24.  
  25.         putevent intro_flieger_raus
  26.         oneshotaction 138 "savepoint"
  27.         
  28.         #-------------------------
  29.         #   variablendefinieren
  30.         #-------------------------
  31.         setvar onisland 0
  32.         setvar C0P1gunbuildcount 0
  33.         setvar navtowercollectcount 0
  34.         setvar navtowerbuildcount 0
  35.         setvar C0P1sharkkills 0
  36.         setvar gun2collect 0
  37.  
  38.         savepoint
  39.         
  40.         missionobjective obj_c00p01_01.bmp
  41.     }
  42.     
  43.     
  44.     
  45.     
  46.     on intro_flieger_raus {
  47.         set delayjaeger 137
  48.  
  49.         set gruppe "introjaeger1 introjaeger2 introjaeger3 introjaeger4 introjaeger5 introjaeger6 introfreund1 introfreund2 introflieger_dd"
  50.         foreach curItem $gruppe {
  51.               if {[/world.findobjectbysymbolicname $curItem] != "null"} {
  52.                 releaseafter $delayjaeger $curItem
  53.             }
  54.         }
  55.         oneshottimer 109.8 wegmachen_crashkid1
  56.         oneshottimer 110.4 wegmachen_crashkid2
  57.     }
  58.     on wegmachen_crashkid1 {
  59.         [findsymbol introflieger_crash1].announcestate "normal"
  60.         oneshottimer 0.1 speed1        
  61.     }
  62.     on wegmachen_crashkid2 {
  63.         [findsymbol introflieger_crash2].announcestate "normal"
  64.         oneshottimer 0.1 speed2
  65.     }
  66.     on speed1 {
  67.                 #[findsymbol introflieger_crash1].setspeed 37.59765625 -5.60188245773 -13.6718740463
  68.                 killsymbol introflieger_crash1
  69.     }
  70.     on speed2 {
  71.         #[findsymbol introflieger_crash2].setspeed -49.3164024353 -14.7781362534 -31.2499980927
  72.         killsymbol introflieger_crash2
  73.     }
  74.  
  75. #-------------------------------------------------------------------------------
  76. #   SPIELEN
  77. #-------------------------------------------------------------------------------
  78.     on playertrifftbasalt {
  79.         playsound  book:music/native2.wav
  80.         loadencounter cam_erwach.n
  81.         activate walkover2
  82.     }
  83.  
  84.     on basaltswitchoff {
  85.         loadencounter cam_welcome.n
  86.         playanimation basaltface_cinedummy1
  87.         playanimation playerlighthouse_cinedummy2
  88.  
  89.         oneshottimer 34.25 spawn_navartefakt
  90.     }
  91.  
  92.     on spawn_navartefakt {
  93.         #[findsymbol navartefakt].setposition -7744.5 -126.4 -5864.5
  94.         [findsymbol navartefakt].setposition -7743 -126.5 -5860
  95.     }
  96.  
  97.  
  98. #-------------------------------------------------------------------------------
  99. #   NAVTOWER wird gebaut
  100. #-------------------------------------------------------------------------------
  101.  
  102.     on navtowereingesammelt {
  103.         setvar navtowercollectcount [expr [getvar navtowercollectcount] + 1]
  104.         
  105.         set userclan [/world.getuserclan]
  106.         if { [$userclan.getcurrentenergy] < 25 } {
  107.             $userclan.setcurrentenergy 25
  108.         }
  109.         
  110.         if { [getvar navtowercollectcount] == 1 } {
  111.             #### ACHTUNG WILL DERZEIT NICHT ALLEIN AUS CIN_STATE
  112.             [findsymbol playerlighthouse].announcestate "normal"
  113.             
  114.             loadencounter cam_navcollected.n
  115.             playanimationafter 1 basaltface_cinedummy2
  116.         }
  117.     }
  118.  
  119.     on navtowergebaut {
  120.         setvar navtowerbuildcount [expr [getvar navtowerbuildcount] + 1]
  121.         if { [getvar navtowerbuildcount] == 1 } {
  122.             loadencounter cam_navbuild.n
  123.             playanimation basaltface_cinedummy3
  124.             oneshottimer 17.5 zumnavstart
  125.         }
  126.     }
  127.  
  128.     on zumnavstart {
  129.         islandmoveto navpoint_start
  130.         enablenavpoint navpoint1
  131.     }
  132. #-------------------------------------------------------------------------------
  133. #   NAVPOINTS werden freigeschalten
  134. #-------------------------------------------------------------------------------
  135.  
  136.     on amnav1 {
  137.         islandmoveto navpoint2
  138.         disablenavpoint navpoint1
  139.     }
  140.  
  141.     on startsound {
  142.         playsound book:music/sfx/rumpel01.wav
  143.         disablenavpoint navpoint_start
  144.     }
  145.  
  146.     on amnav2 {
  147.         disablenavpoint navpoint2
  148.  
  149.         loadencounter cam_navpoint1.n
  150.         playanimation basaltface_cinedummy4
  151.  
  152.         oneshotaction 3.52 "[findsymbol gunartefakt1].setposition -7742.4 -166.3 -6271.8"
  153.         loadafter 19.5 loadenergy1.n
  154.  
  155.         #patrol an der kette
  156.         oneshottimer 23.5 feindetofreunde
  157.     }
  158.  
  159.     on machsharks1wech {
  160.         killsymbol pshark
  161.     }
  162.  
  163. #-------------------------------------------------------------------------------
  164. #   GUNTOWER werden gebaut
  165. #-------------------------------------------------------------------------------
  166.  
  167.     on guntowergebaut {
  168.         setvar C0P1gunbuildcount [expr [getvar C0P1gunbuildcount] + 1]
  169.         # switchto enemy1
  170.         oneshottimer 3 freundetofeinde
  171.  
  172.         if { [getvar C0P1gunbuildcount] == 1 } {
  173.  
  174.             set gruppe "pshark1 pshark2 pshark3 pshark4"
  175.             foreach curItem $gruppe {
  176.                   if {[/world.findobjectbysymbolicname $curItem] != "null"} {
  177.                     givetask $curItem attack playerflak
  178.                 }
  179.             }
  180.  
  181.             #die kleine hilfe wird wohl immer n÷tig sein
  182.             #killafter 20 playerflak
  183.             oneshottimer 20 playerflak_killen
  184.         }
  185.  
  186.         if { [getvar C0P1gunbuildcount] == 2 } {
  187.             loadafter           1 cam_diefeindenochmal.n
  188.             playanimationafter  1 basaltface_cinedummy6
  189.         }
  190.  
  191.         #----------------------------------
  192.         #   zur sicherheit gegen deadlock
  193.         #----------------------------------
  194.         if { [[findsymbol playerflak].getcharges] == 0 } {
  195.             loadencounter loadguntowerartefact.n
  196.         }
  197.         if { [[/world.getuserclan].getcurrentenergy] == 0 } {
  198.             loadencounter loadenergy1.n
  199.         }
  200.     }
  201.     
  202.     on playerflak_killen {
  203.         if { [getvar C0P1sharkkills] == 4} {
  204.             setvar C0P1gunbuildcount 3
  205.         } else {
  206.             killsymbol playerflak
  207.         }
  208.     }
  209.         
  210.     on playerflak_killed {
  211.         putevent feindetofreunde
  212.         if { [getvar C0P1gunbuildcount] == 1 } {
  213.             loadafter 1 cam_guntowerdestroyed.n
  214.             playanimationafter 1 basaltface_cinedummy5
  215.         }
  216.     }
  217.  
  218.     on feindetofreunde {
  219.         setfaction feinde player
  220.  
  221.         set gruppe "pshark1 pshark2 pshark3 pshark4"
  222.         foreach curItem $gruppe {
  223.               if {[/world.findobjectbysymbolicname $curItem] != "null"} {
  224.                 givetask $curItem patrol kreis
  225.             }
  226.         }
  227.     }
  228.  
  229.     on freundetofeinde {
  230.         setfaction feinde enemy1
  231.  
  232.         set gruppe "pshark1 pshark2 pshark3 pshark4"
  233.         foreach curItem $gruppe {
  234.               if {[/world.findobjectbysymbolicname $curItem] != "null"} {
  235.                 givetask $curItem attack playerflak
  236.             }
  237.         }
  238.     }
  239.  
  240. #-------------------------------------------------------------------------------
  241. #   SHARKS killen
  242. #-------------------------------------------------------------------------------
  243.     on psharkkilled {
  244.         setvar C0P1sharkkills [expr [getvar C0P1sharkkills] + 1]
  245.  
  246.         if { [getvar C0P1sharkkills] == 4} {
  247.             loadafter           2 cam_allkilled.n
  248.             playanimationafter  2 basaltface_cinedummy7
  249.  
  250.             loadafter 7 loadenergy1.n
  251.             oneshotaction 6.2 "[findsymbol gunartefakt2].setposition -7742.4 -166.3 -6271.8"
  252.             releaseafter 38 basaltface
  253.         }
  254.     }
  255.  
  256. #-------------------------------------------------------------------------------
  257. #   BONUSGUNTOWER dann ende
  258. #-------------------------------------------------------------------------------
  259.     on gun2collect {
  260.         setvar gun2collect [expr [getvar gun2collect] + 1]
  261.         if { [getvar gun2collect] == 1} {
  262.             enablenavpoint navpoint3
  263.         }
  264.     }
  265.  
  266.     on machschluss {
  267.         #-------------------------
  268.         #   variablen kicken
  269.         #-------------------------
  270.         clearvar onisland
  271.         clearvar C0P1gunbuildcount
  272.         clearvar navtowercollectcount
  273.         clearvar navtowerbuildcount
  274.         clearvar C0P1sharkkills
  275.  
  276.         finishpart
  277.     }
  278.  
  279. }
  280.